perm filename ALMAIN.TTY[AL,HE]2 blob sn#358166 filedate 1978-05-29 generic text, type T, neo UTF8
BEGIN
REQUIRE ERROR_MODES "F";
FRAME F; TRANS T;
(ASSERT (SF DEPROACH F T));
F ← BPARK;
T ← NILTRANS;
MOVE BARM TO F;
END;